<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_directory_STRING
MM_directory_STRING ="Provider=SQLOLEDB;Password=big785;Data Source=VMSSQL03\I3;Database=DB_4085;User ID=vip2498"
%>
<%
If Session("MM_Username") = "" Then
Response.Redirect("favLogin.asp")
End  If
%>
<%
    Dim PreviousPage 
	PreviousPage = Request.ServerVariables("HTTP_REFERER")
	
  
%>

<%

if(Session("MM_Username") <> "") then Command1__varUser = Session("MM_Username")

if(Request.QueryString("Biz_ID") <> "") then Command1__varAd = Request.QueryString("Biz_ID")

%>

<%
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Directory_STRING
Command1.CommandText = "INSERT INTO FAVORITES (U_ID, LINK_ID)  VALUES ('" + Replace(Command1__varUser, "'", "''") + "','" + Replace(Command1__varAd, "'", "''") + "' ) "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
response.redirect PreviousPage
%>